LOGIC & FLOW 



I 


( 

J L710- ?o 4 l 

] VpkTTt oj) -fij- 


i 



IHS/VS DAM BASE LOGIC AND FLOW 


DATES OP COURSE: 

8 Half-Days, August 22 Thru August 31 r 
1977 

INSTRUCTOR: 

Bill Lockhart J15/F14 Santa Teresa Lab 
Phone - x4240 

COUBSE ABSTRACT: 

This lecture/workshop course is intended 
to be an in-depth view of the internal 
workings of an IHS/VS Batch system. In 
the class you will be provided with 
several IHS/VS dumps where we will track 
the basic DL/I calls through the Control 
Blocks and Modules of IMS/VS. 


COURSE OBJECTIVES: 

Upon completion of this course, the 
student should be able to: 

* Load a given data base using any of the 
IMS/VS data organizations and access 
met hods. 

* Utilize the DL/I Test Program 
(DFSDDLTO) and the DL/I calls necessary 
to minipulate logical and physical data 
bases. 


* Analyze the various types of IMS/VS 
storage dumps to determine both proper 
and improper operation of a batch IHS/VS 
system. 

* List the steps required by DL/I modules 
to process the basic DL/I calls. 

* Match the DL/I modules with their 
functions. 

* Locate a given root segment in the data 
base buffer pool and all its dependents 
for each of the DL/I data organizations. 

* Indicate the source and purpose of any 
DL/I control block. 

* Map out a batch IMS/VS storage dump 
showing the location and contents of the 
major DL/I control blocks. 


COURSE TOPICS: 


DL/I General Call Flow 

DL/I Control Blocks 

Retrieve Call Flow (GET type Calls) 

Buffer Management 

Load/Insert Call Flow 

Delete/Replace Call Flow 

Data Base Traces 


CLASS EXERCISES: Several Storage dumps taken on , STLHVSl f 

(MVS Batch) will be used for analysis 
during class. 


MATERIALS: Student Guide (includes copies of all foils 

used), Core Dumps, and Library copies of 
IMS/VS Pubs. 


Updated: 08/11/77 



(^Prerequisite Quiz For Course: IMS/VS D.B. LOGIC £ FLOW 

Name: _ Dept/Office:_ Phone: _ 

* 

* INSTRUCTIONS: 

* 1. READ EACH QUESTION OVER AND PICK THE BEST ANSWER. EVEN IF YOU 

* FEEL THE 'BEST' ANSWER IS NOT THERE, PICK THE 'NEXT BEST' AMONG * 

* THE ANSWERS LISTED. * 

* 2. WHEN YOU HAVE FINISHED THIS QUIZ MAIL IT TO: * 



* NOTES: * 

* THIS QUIZ IS PRIMARILY A TOOL FOR YOU TO ASSURE YOURSELF THAT * 

* YOU ARE PREPARED FOR THE COURSE. THIS PREPARATION CAN COME * 

* FROM ANY COURSES AND/OR EXPERIENCE YOU HAVE HAD ON THE SUBJECT. * 

* ANY QUESTION YOU HAVE DIFFICULTY WITH SHOULD POINT OUT TO YOU * 

* AN AREA OF THE SUBJECT THAT YOU SHOULD REVIEW BEFORE COMING TO * 

* CLASS. * 

* IF YOU HAVE DIFFICULTY WITH THE MAJORITY OF QUESTIONS ON THE * 

* QUIZ YOU SHOULD CONSIDER ENROLLING IN PREREQUISITE CLASS(ES) * 

* AND TAKING THIS COURSE AT A LATER DATE. * 

Q,*****************************************************«************* 

Circle the correct answer(s) or fill in the blank area: 

1. In IMS/VS terms, a Data Base is defined as a nonredundant 

collection of interrelated data items processable by one or 
more application program(s). 

True/False T/u*£^ 


2. When loading a HISAM (ISAM/OSAM) Data Base, each physical 
data base record starts within an: 

(a) ISAM logical record 

B. OSAM logical record 

C. QSAM logical record 

D. BSAM logical record 


Use FIGURE 1 (attached) to answer questions 3-7. 

3. The circled number 1 indicates a physical: 



A. PARENT pointer 

B. CHILD pointer 

C. CHILD pointer, first 6 last 
(6 J TWIN pointer 

E. TWIN pointer, forward £ backward 


* * 


4 . 


The circled number 2 indicates a physical: 


A. 

B. 



PARENT pointer 
CHILD pointer 

CHILD pointer, first £ last 
TWIN pointer 

TWIN pointer, forward £ backward 


5. The circled number 3 indicates a physical: 



PARENT pointer 
CHILD pointer 

CHILD pointer, first £ last 
TWIN pointer 

TWIN pointer, forward £ backward 


6. The circled number 4 indicates a physical: 



PARENT pointer 
CHILD pointer 

CHILD pointer, first £ last 
TWIN pointer 

TWIN pointer, forward £ backward 


7. The circled number 5 indicates a physical: 

A. PARENT pointer 

B. CHILD pointer 

(cf) CHILD pointer, first £ last 

D. TWIN pointer 

E. TWIN pointer, forward S backward 


8. There must be at least *3(-Q DATASET statement(s) for each physical 
DBD generation. 


A. 

ZERO 

©> 

ONE 

C. 

TWO 

D. 

THREE 

E. 

FOUR 


9. The call interface between DL/I and an application program is 

dependent on a particular storage organization and access method. 

True/False \~Asi, 


c 

10. GET calls may or may not have SSAs. 

True/False "T/iu£. 

11. DELETE and REPLACE calls may have qualified SSA's 
True/False HUW 

12. Any logical data structure may be composed of one or more 
physical data base records. 

True/False f /iu.£, 

13. Symbolic pointers may NOT be used when the data base "pointed-to" 
exists in HIDAM or HDAM. 

True/False VcdPst, 

14. When direct address pointers are used to establish a logical 
relationship, the pointers exist as part of the user data. 

True/False VcJls^ 

15. When symbolic pointers are used to establish a logical relationship, 
the pointers exist as part of user data. 

True/False |/\u.£ 


O 





FIGURE 1 
















DFSRRCyp' 


DFSRRAJZ(0 


DFSRRA2J$ 



DLI REGION INITIALIZATION. 

& cplS (S)'it) 

//STEP EXEC PGM=DFSRRCJ^,PARM='DLI,USRPGM,PSB,BUF' 


REG 1 Points To EXEC Card Parm List 


LOAD: DFSPRPX/) - Region Control Blocks 

SECONDARY SCD - Current SVC Numbers 

Breakout And Decode Parm’s From EXEC card 


cv^ . b 


AT COMPLETION, 


XCTL 


To DFSPCC3 


-BATCH PROGRAM CONTROLLER- 






DLI REGION INITIALIZATION (cont) 


DFSPCC5/ 

BATCH 

PROGRAM 

CONTROLLER 


DFSDLBLJ3 

BLOCK 

BUILDER 


- Load Batch Nucleus 

- Move SVC numbers into SCD 

- OPEN DCBs for PSBLIB & DBDLIB 

- CALL DFSDLBLJZf 


- Build DL/I Control Blocks based on PSB name taken 

from EXEC card PARM field. 

- Load Register 1 with PST address 

- Close DCBs for PSBLIB & DBDLIB ?a>L-kc~ 








DLI REGION INITIALIZATION 




-Load required DL/I modules. -Getmain For DB 


-Load system required & user 


buffer pool. 
-Format Pool. 


specified modules. 



VSAM BUFFR LOG 

POOL INITIALIZER 

INITIALIZER 


-Getmain for BH -If logging, 

POOL. LOG WORK AREA, 

-Call VSAM to build log buffers; Open 
subpools based on IOBs; Format log; 
DFSVSAMP Data Set. Page fix Log; Open 













DU REGION INITIALIZATION (cont) 


DFSPCC3/ 

BATCH 

PROGRAM CONTROLLER 

- Load STAE Exit Routine (DFSFLOS0) 

- Load Register 1 with PCB List Address 

Link to User Application Program 


t 

USER 

APPLICATION 

PROGRAM 


(END OF INITIALIZATION) 









o 


o 


DFSRRCOO 

f 


DFSRRAOO 


DFSRRA20 



o 

DBB REGION INITIALIZATION 


//STEP EXEC PGM=DFSRRCOO,PARM= [ DBB)USRPGM,PSB,BUF' 


REG 1 Points To EXEC Card Parm List 


LOAD: DFSPRPXO - Region Control Blocks 

SECONDARY SCD Current SVC Numbers 


Breakout And Decode Parm's From EXEC card 


AT COMPLETION, XCTL To DFSPCC30 -BATCH PROGRAM CONTROLLER- 





DBB REGION INITIALIZATION (cont) 


- Load Batch Nucleus 

- Move SVC Numbers from Secondary SCD to ''real" SCD 

- Call BLOCK LOADER Cj/i 

Slc^ L, && Ac & LiL J 

- OPEN DCB for ACBLIB 

- Load DL/I Control Blocks (prebuilt by acbgen) 

- Load Register 1 with PST Address 

- Close DCB for ACBLIB 

- Return To DFSPCC30 


DFSBBLDO 

BLOCK 

LOADER 


DFSPCC30 


BATCH 

PROGRAM 

CONTROLLER 


(DFSDBLxO) 





o 


o , o 

DBB REGION INITIALIZATION (cont) 



-Load required DL/I modules. -Getmain For DB -Getmain for BH -If logging, 

-Load system required & user buffer pool. pool. log work area, 

specified modules. -Format Pool. -Call VSAM to build log buffersj Open 

subpools based on IOBs; Format log; 
DFSVSAMP Data Set. Page fix Log; Open 


Log, 






DBB REGION INITIALIZATION (cont) 


DFSPCC30 

BATCH 

PROGRAM CONTROLLER 

- Load STAE Exit Routine (DFSFLOS0) 

- Load Register 1 with PCB List Address 

Link to User Application Program 


> 

USER 

APPLICATION 

PROGRAM 


(END OF INITIALIZATION) 





APPLICATION PROGRAM ISSUES A DL/I CALL 


User Passes a PARM List to DL/I : 

FUNCTION,PCB,i/o AREA, SSA,(SSA),...(SSA) 

DL/I CALL ANALYZER (DFSDLA00) Goes To Work 

Register 1 has the address of the PST 

Field PSTIQPRM has the address of the Call Parm List 

Call Analyzer Does The Following: 

Validate The PCB Address & Store In PSTDBPCB 
Store Users I/O Area Address In PSTUSER 
Verify & Encode Function & Store In JCBPRESF 
Validate FIELD Name (in SSA) 

Test For Invalid Call (with or without SSA) 

Test For PROCOPT Violation 

Data Bases Open? (check JCBOPEN bit) 

No - Call DL/I OPEN/CLOSE (D0JDLOC0) 

Yes - Call DL/I Action Module based on Function 
RETRIEVE - DFSDLR00 
LOAD/ISRT - DFSDDLE0 
DLET/REPL - DFSDLD00 




DFSDLAOO 



RETRIEVE 


DELETE / 
REPLACE 


LOAD / OPEN / 

INSERT CLOSE 




OPENS A SINGLE DCB/ACB, A DATA SET GROUP, ALL DCH/ACBg 
FOR A PCR, FOR A OMR, FOR ALL KBs 

USE IMS EMQ/DHQ TO SERIALIZE OPENS FOR DCB/ACB ‘ ( 


( ImJii 


GET STORAGE FOR 31 SAM 'IN STORAGE' INDEXES 


BUILD OPEL! AND CLOSE LOG RECORDS 


LOAD/DELETE iiDAH RANDOMIZING MODULES 


! flAP./D"! PT^ Q r,% wrri-.!T r:n ? l rnP/O^F ' A C Tr f ' rr 

i.uhJJ/ Jji_LL I l. Olu! !l.i; i LiJ i I tUi'l! 51 UVi iTJuJLLb 


INITIALIZE AEPs, DSGs AND JCBs 


^ActSSS 

C~k/lr 

^ hcuiS A C£> or 


IF HSAFl USING BSAri, DO GETMAIM FOR BSAri BUFFER 


SET JCBORGN TO INDICATE OPEN/CLOSE STATUS 





RETRIEVE 


DFSDLR00 


FUNCTIONS - 

* RECEIVES CONTROL FROM CALL ANALYZER 

X CALLS BUFFER HANDLER FOR PHYSICAL I/O 

X DEBLOCKS SEGMENTS FOR HS ORGANIZATION 

X ESTABLISHES 'POSITION' IN THE DATA BASE 

X IF POSITION AVAILABLE FOR REQUESTED SEGMENT, 

NO BUFFER HANDLER CALL 

X UPDATES POSITION AND LENGTH IN DB CONTROL BLOCKS 
X PERFORMS POSITIONING FOR INSERTS 

X FOR 'PI' CALL ENQ-DEQ FOR POSITION AND ENQ TESTS 
x POSITION TO PHYSICAL ROOT FOR HISAM, HIDAM, HDAM 

x FOR 'PI' WILL IWAIT TASK IF NECESSARY 


RETRIEVE POSITION 


SDBPOSP SDBPOSC SDBPOSN 

I PREVIOUS I CURRENT 1 NEXT 1 


HSAFI: NO POSITIONING USED 


HISAM: 


PREV - Not Used 

CURR - RELATIVE RECORD NUMBER (RRN) OF LRECL 
NEXT - OFFSET INTO LRECL FOR SEGMENT 


HDAm/hIDAM: 

PREV 


RELATIVE BYTE NUMBER (RbN) OF PRIOR 
SEGMENT ON CHAIN 


fysfuJL 

S&u u iCv) 


CURR - RbN OF CURRENTLY ESTABLISHED POSITION 
NEXT - RbN OF NEXT SEGMENT ON CHAIN 




Mfpn-i 


-DOES LOADS AND INSERTS FOR ALL ORGANIZATION 


I c 


- RETRIEVE POSITIONS FOR ALL INSERTS. EXCEPT ROOT 
IN HISAM 


FLOW •• SEPARATE LOGIC WITH. COMMON SUBROUTINES FOR 


o 


- HSAM LOAD 


- HI SAM LOAD 


- HISAM DEPENDENT INSERT 


- HI SAM ROOT INSERT 


- HDAM OR HI DAM LOAD OR INSERT 


- HI SAM REPLACE FOR VARIABLE LENGTH SEGMENTS 


- HD REPLACE FOR VARIABLE LENGTH SEGMENTS 


Q 




PERTINENT INFORMATION PASSED TO INSERT 




PARTITION SPECIFICATION TABLE (PST) 
PCB (FROM THE DL/I CALL) 

FIRST LEVEL TO BE INSERTED 
LOGICAL SEGMENT CONTROL BLOCK (SDB) 
PHYSICAL SEGMENT CONTROL BLOCK (PSDB) 


v pjv') 


§ 


POINTERS TO ALL OTHER DB CONTROL BLOCKS 




CURRENT POSITION 






DFSDLDOO 



Delete/Replace 


REPLACE FUNCTIONS 


■NS URE 



l/r'V C 1 rl P 
IxL I h {il L S J 


JA-;- ■ ,-r p " r 

i -iU i /a u I LAI !U 


HECKS FOR REPLACE RULE VI01 ATI ON 
© INTERFACE WITH INDEX MAINTENANCE IF INDEXED SEGMENT 
IN1 ERI-AuE WITH LOAD/INSERT IF VARIABLE LENGTH 
© 1 INTERFACE WITH ENQ/DEQ IF PROGRAM LSOLATlON l N EFFECT 


DE LETE FUNCTIONS 

© ENSURE KEY FIELD NOT ALTERED 
« CHECKS FOR DELETE RULE VIOLATION 
SCANS DATA BASE RECORD 

-HISAM- ONLY IF LOGICAL RELATIONSHIP OR INDEXED 
SEGMENTS IN HIERARCHY 

-HD- ALWAYS 

INTERFACE WITH INDEX MAINTENANCE IF INDEX.SOURCE SEGMENT 
INTERFACE WITH SPACE MANAGEMENT IF HD ORGANIZATION 
INTERFACE WITH ENQ/DEQ IF PROGRAM ISOLATION IN EFFECT 





-fe e! 


A V&c \ 









G OBTAINED BY GBTMA 1 N FROM SUBPOOL ZERO 


O MAINTA! N SCON CATENATE D KEYS 


O MAINTAINS POSITION OF SEGMENTS IN THE DATA BASE RGCOR 


© USED DURING DELETE SCAi 


i\i 


O USED DURING INDEX MAINTENANCE FOR REF! AC! 


O FIRST WORK AREA POINTED TO BY PSTDLTWA 








o 


I N D E X M A I N T E N A N C E 
DFSDXMTO 

MAINTAINS PRIMARY INDIC/ESFOR HIDAM DATA BASES 

MAINTAINS SECONDARY INDEXES 

MAKES INTERNAL DL/I CALLS 

ISRT/DLET/REPL INDEX SEGMENTS 

ALL UPDATES ARE LOGGED 

G 


O 

m 




DFSDLDVO 


REPLACE FUNCTIONS 


ENSURE KEY FIELD NOT ALTERED 
COMPARE OLD SEGMENT TO NEW 


IF UNEQUAL: 


- LOG OLD AND NEW 

- REPLACE OLD WITH NEW 


DELETE FUNCTIONS 


ENSURE KEY FIELD NOT ALTERED 


LOG OLD SEGMENT 


ISSUE VS AM ERASE < 3 - 





e ALLOCATED EVERY 'N' BLOCKS 

I 

N=8 (BLOCKS IZE-4-4(#RAP'S)) 

o FILLS DATA STORAGE AREA OF FIRST 3L0CK OF EACH SET 
OF 'N' BLOCKS 

© ONE BIT REPRESENTS ONE BLOCK 


BIT 'ON' - AT LEAST ONE SPACE LARGE 
LARGEST SEGMENT OF BATA SET GROUP 



© 



HIERARCHICAL-DIRECT SPACE MANAGEMENT 


Block = IGA Bytes (decimal) 

• EMPTY 


Ifseap 

RAP 

FSE 

88 BYTES OF 

08 

0 

0 

0 

60 

ID 

Free Space 


• FILLED - 2 Segments Plus 2 Free Areas (small ones) 


FSEAP 

RAP 

SKILL 

FSE 


FREE 

NAME 

FSE 


FREE 

30 0 

2044 

Segment 

52 

OE 

ID 

SPACE 

Segment 

00 16 

ID 

SPACE 


• DELETE NAME Segment 


FSEAP 

RAP 

SKILL 

1 

: SE 

48 BYTES OF 

30 

r 0 

2044 

Segment 

00 

38 

11 

Free Space 




HIERARCHICAL-DIRECT SPACE MANAGEMENT 


Block = 104 Bytes (decimal) 


a EMPTY 



a FILLED - 2 Segments Plus 2 Free Areas (small ones) 



e DELETE NAME Segment 


FSEAP 

RAP 

SKILL 

FSE 

CO 

BYTES OF 

30 0 

2044 

Segment 

00 38 j id 

Free 

Space 



Ill) SEARCH CRITERIA 



1, 

SAMr.BLOCK WITH NO C 

i! A f: C TP 1 ’ ’ TTC n i r k 
i -.OL ' i' I 1 5 i; j i j 

pin 

»n; 


CLOSEST AVAILABLE SPACE; 



(I) EQUAL TO SEC; 

ENT LENGTH 



(2) 2 ) IKES ITS $ 

i— 0: ii-i . i L : IVC ! il 



(3) SEGMENT LlNST 

;; ... r,’ T M T 7 ! ’ "A <■'Crr-;Er', 
1 • 1 1 ! -• 1V j. i jU. i 0 [_ Ijl !■„: 

i Pi/.Si 


(A) GREATER THAN 

C;fvr:.H: ;.'t « i:: • r rj i 

'■...U! i;.l. 1 ! .L u 1 ! . 


9 

4 . i 

SAME BLOCK WHERE BIT 

MAP W] s ! rir;r- 



CLOSEST AVAILABLE 

( • ' ' r, 

vF/itL: 



(.1) 2 TIMES ITS S 

LiKHEN T LENGTH 



(2) SEGMENT LENGT 

(S) C! f-Wl| 

vD7 oLUi’iLt,' 1 

! 1 f/ T f\l 1 i ij Mi C'r^i 77 f 

> • ' < ! i i“ i i 'i ! Ol. 1 .!' iL-i 

T c T 7 r 

i Cm/,l 

.9 , 

/MV p! r; ■’ (-; • r.; i r M-yi y 
i i. . 1 i • !.«.\y V - ! \ v ✓ * ‘ | \ i »i . ; : 1 _ • 

HI DUFFER ! 00! OH 

w/P.l ! i\/U. 

/I 

" i 1 

/i r! \ > p | r\ r ? / r % \ n n p ►. i 1 • • 

Ail'. I JjLOuI\ 1 l_ ! 

fi.l ;:-noi HI' 

:.a yJ-'\ i i ! Oil Ul'1 

o f * ‘ r* /1 7 *» r- 

7 /ap.l. 11 Li i-jJLft 

5, 

ANY BLOCK HI BIT MAP 
LijuatH EXISTS 

n- i lAMP TP'Af!:* \ : 

r.r r'pvTipMfi opM.‘c?.r 
f •: - I :’>■ l ) !C»; i OLv'i \ 

r* 

u, 

ANY PI OCK IN BIT iTAP 
LENGTH EXISTS 

Lip P -' .'r; ( v; my-p 

V'.t V- i :i i,._ V.- 1 1— .1. i > J 1 i_ J \ 

*r i -■”* ; s a v*’j ■ • • ■; r-r c" 
niiLj'iIl J in A i i iUi ) «PLui 

7, 

ANY BLOCK CURRENTLY 

IN BUFFER POOL Till 

BIN :• N CYLINDERS 

CO 

ANY BLOCK JN BIT MAP 
LENGTH EXISTS 

ON + N CYLINDERS 

WHERE MAXIMUM SECT 

9 , 

ANY BLOCK IN BUFFER 

POOL WITHIN DATA SET 

1- - 1 
CD 

ANY BLOCK IN BIT HAP 

WITHIN DATA SET, 






Sill 


5 $<jiuodr do oC&s't 4o 
0 i ^<$ r 3 &5 









DL/I CONTROL BLOCKS 


G 








SENSEG 


DATASET 

SEGN 

FIELD 

LCHILD 

XDFLD 



o 


DL/I MAIN CONTROL BLOCKS 


TMS 

_DL/1 TABLE 
OF CONTENTS 


- £cp) 


- J>m (jytv) 
DATA BASE 
PHYSICAL 
DESCRIPTION 


DATA BASE 
LOGICAL 
DESCRIPTION 


?sr 

RESOURCES 
ALLOCATED TO 
THE PARTITION 


BUFFER POOL 
CONTROL BLOCKS 
TO MANAGE DATA 




- SCD - 










DBD Generated Blocks 










JcS> CALL TRACE TABLE (W«T 

|oooo|ooooloi4olo44o!o4C5l 1 \ \ 

*FIVE TWO-BYTE ENTRIES \ 

BYTE ONE BYTE TWO A 

01-GU/GHU RIGHT BYTE OF THE 

03-GN/GHN STATUS CODE < 

04-GNP/GHNP J 

21- REPL / 

22- DLET / 

41-ISRT 

*MOST RECENT ON RIGHT-— 



o 



DL/I BLOCKS 























































(DMBCPAC) 


"COMPRESSIONAL SEGMENT BLOCK" 

A CSECT For Each Compressable Segment 
Each Is Eight (8) Words Long 
Part Of The DMB 

Maps Out Compression Routine Information 
One CPAC per PSDB - ie; One Per Physical Segm, 




o 




(DMBXMPRM) 


"INDEX MAINTENANCE PARAMETER LIST" 

Used By Index Maintenance wth Secondary Indexing 
Anytime a Source Segment Is Updated, 

Contains XDFLD And Other Information on the 


Source Segment 





H H 

CHHSTRT) 

"HIERARCHIC HOLDER" 

• Built By RETRIEVE Module (DFSDLROO) 

• Used To Hold Position Info, Within A Data Base 

• First One Pointed To In JCB (JCBHH +48) 

• All HHs are Four Words Long & Chained Together 

• Each SDB Contains a Relative Number Of the HHSTRT 

For That Segment (SDBHH + 0E) 

• HHSTRT Of Current Segment Position Held In The 

JCB (JCBACHH + 2D) 






































































































CALL: GN EXPR 

PCBl 
























CALL: gn expr 

PCBl 












































































































































SAMPLE DATA BASE 






V' 




( 

DEPT 

(lp^ 

LOCATION 




























































SCD EXERCISE 



1. What is the address of the SCD? (PST+168) 1 / %O 1 

2. What are the user specified IMSGEN parameters for: 

Type 1 SVC Number: 2^3 

Type 2 SVC Number: - r%< -f 

Type 4 SVC Number : ''f)3 ' l 

Channel End Appendage Suffix: ^ 

3. What is the IMS/VS Release 6 Modification Level number 

for this system? 1 _ 


4. What is the entry point address of the following modules: 


DL/I Call Analyzer: _Dl^To 

ISAM Simulator: p iA . fr . tin flO 

VSAM Interface: _ 

DL/I Retrieve: _ 

Load / Insert: _ 

Diet / Replace: ' _ 






ISAM/OSAM Buffer Handler 

Get/Free Space: _ 

Index Maintenance: 










5. What is the address of the PSB Directory? (SCD+E8) 
fe-7oe'Q 


6. What is the address of PXPARMS? (SCD+148) 




7. What is the address of the ISAM/OSAM Buffer Pool? 
(SCD+2BC) €(o&oo 


o 



ISAM-OSAM DUMP PROJECT NUMBER ONE 


1. What is the current or last used DB PCB address? 

'__csi 2 dL_' 

2. How many data base calls have been issued for this 
schedule of the program? ^ 

3. What are the contents of the current DBPCB? 

DBDNAME: Log^-a-tv^; 

LEVEL: q 

PROCOPT: AP 

STATUS CODE: Gf 
NUMBER OF SENSEGS: £ 

KEY FEEDBACK: A'PfHvif < To^aJ ^ cy (*fi- 


4. What is the location of the JCB associated with this PCB? 
1 CS^Or 1 

5. What were the prior 5 calls and < Tfhier > return codes? 

O-o, €-0.-*, 

6. Where do the SDB's and Level Tables start for this PCB? 

LcVcP- svptar =- cg’&c c- 

1 5 -t y r=r 66 & 

7. What is the lowest level segment which can be accessed by 

this PCB? 3_r_ 


8. What is/ the data base organization of the Root Segment? 
HDAM, V HIDAM, HSAM, HISAM, SHISAM 


9. What sensitivity (ISRT, DLET, 
user have for the Root segment? 


REPL, GET, etc.) 
(Lvf (-A p) 


does the 


10. What is the location of the DCB to be used for the Root 
segment? 1 "b'4'S'jo 1 

11. What is the RbN (if HD), or RRN S Offset (if HISAM), of 
the location of the Root segment? 7q A4 Which 
is it, RbN or RRN ? 


12. What is the location of the PSDB of the Root segment? 

' ^41 S' 


13. What is the total segment length (Prefix and Data), of 

the root segment? (Hex or Decimal) ^ 

14. What pointers are present in the prefix of the Root 
segment? 


cuia 14 ^ ‘f V 

cdLsa 


Ct£- 


( u> vtO TUrA- 


kkmuvilin 






PAGE 2 


15. What are ~he ISRT, DLET £ REPL Rules for the Root 

segment? ISRT: ItEyPp . , 13LET * f REPL • _Leji£i£_« 

16. What is the name of the sequence field (key) of the Root 
segment? IpoUiJ/h^ 

17. Is this field unique or non-unique? _ 


18. Why does the instructor want to know all these things? 
Can't he find them himself? 




ISA M/OSAM BUFFER POOL EXERCISE 
-Use Dump Number 1 -- 

Fill in the buffer pool map below for the buffers labeled 
A,B,C,... from Low to High storage. For each buffer fill in 

the Address, the "use chain" pointer addresses, the Buffer 
"ID" (Block#, DMB#, DCB#), and the buffer size in Hex. Mark 
the End of the Buffer Pool by drawing a line under the last 
buffer. Also mark each buffer as to being either Full or 
Empty. 


STORAGE ADDRESS 
dOoo 


’A' fcr fe<?70 


i B i fcF£> tT2_o 




i p • If "P CS 


' E 1 ^8? 


> F - 




1 BFPL ’ _ _ * 

_ Least; FA 


Most: PA 


Next Lower: /A ft C 2 Higher: 6 9 "7off 

Size: 'Pbo Block: 7 ^ DMB: 3, DCB:_ 
Full or Empty? _ p 


Next Lower: Higher: p A uo ** 

Size: (ffgft Block: ^ f DMB: 'tl DCB:_ 

Full or Empty? p- 


Next Lower: ^Lol° Higher: tr&J) C9 
Size: (2,c*f- Block: DMB: y- DCB: 

Fullor Empty? & 


Full or Empty? 


P 


Next Lower: & Higher: 

Size: Block: DMB: i>" PC£: ~~ / 

Full or Empty? F 1 


Next Lower: Ef'DC^ Higher: 

Size: Cco Block: 4” DMB: ^ DCB: / 

>r> ' — 


Next Lower: Higher: blp & 2-o 

Size: (oOe? Block: DMB: v- DCB:_ 

Full or Empty? p _ 


Lower: Higher: ^ 

jr -0 m nnlf • f- HMR • _ : : ’ ' 


Next 

Size: (>CcP Block: jo DMB: 
Full or Empty? _g 


DCB: 


* * * * * * * 










c 








GET (RETRIEVE) CALL FLOW 


Formatted Dump (Dump Number 2) 

Using the DL/I Test Program and a formatted SNAP after a GET 
call ve will trace the flow for this call. The call was a 
GU to Logical Data Base 1 for NAME under SKILL . with 
unqualified SSA*s. 

NAHE is a LC/LP concatenation of XANARE and NAI1E in the 
physical data bases- We begin when Call Analyzer (DLAO) get 
control. 

ct/A c4-v^v 

I. The Users CALL LIST is moved to LIPARKS and converted to 3(o 
the Implicit format. 

Validate and store the PCB address ■ 

* in 

PSTDBFCB (+160) at * _• . If the PCB address is 

invalid, a U476 abend is issued. 

Encode the function to X* Q\ * and store in JCBPRESF 
(+7F) at • dgjT A3 *. The address of JCB is in the 
DBPCB at +10. "AD* status code is issued if this is an 
invalid function. Rove user f s I/O area address to the 
PSTUSER (+BC) at » Bko£ M-_•- 


II. Find the SDB for the name in the SSA. The first SDB is 

at JCBSDBl (+8) at •_ y . Since this is for the 

SKILL segment we found the correct SDB at T feM-lsgC- *. 
an •AC* status code is issued if there is no SDB for the 
segment name in the SSA. 

Find the Level Table entry for this segment. Segment 
level is in the SDBLEV (+8), and the start and end of 
the Level Table is in the JCB at JCBLEVTB (+0) and 
JCBLEVND (+4). Level One entry is at * 9 - 

Store the address of the SDB at LEVNUSDB (+20) for level 
one . 


III. If there is an SSA (in our case there is), is the 
segment name followed by a blanK, " (** or *. If it is a 
" (" store the address of this left paren at LEVSSA 
(*1C) . LEVSSA is at 1 _J2££M__ # . 

In our case there is no "field level qualification" in 
the SSA, but if there was the FIELD name must be 
validated. 

SDBFSDB (+1C) points to the Physical Segment Description 
in the DMB. Within the DRB there is a PSDB for each 
physical segment. DHBFDBA ( + 10) points to the FDB*s 
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within this segment. The first FDB for the SKIL L 

segment is at * _' - Turn to the Field 

Description Block in the DSECTS and look at the FDBDCENF 
(+A) flag. If a qualified SSA attempted to search on a 
field and no FDB was found an *AK* status code would be 
returned at this time. 

Looking at the DL/I call format, this is where we are: 
FONCT SEG ( FIELD OP VALUE) 

The next thing to check is the OPERATOR . It must be 
encoded and checked against the valid ones. An invalid 
OPERATOR gives us an ftl4 status code. 

The method used to check for the field value length is 
to take the length from the FDBFLENG (FDB+*5*) r add that 
to the starting location of the value 
and compare for either a right parend or boolean 
operator. The field SKCLASS in segm SKILL is how long? 

The FDBFLENG is at •_* and contains * ~7 *, so 

at plus *_ $ % into the value there would be either a 

•)* or a boolean operator. 


IV. If there is another SSA we repeat step III. When all 
SSA *s are validated and decoded, CALL ANALYZES next 
checks the Processing Options for any "violation*. This 
check takes on greater importance on an ISKf, REPL or 
DLET! The test for these calls is made against field 
SDBF3 (SDB+*A*) which is at 1 * and is 1 F’j *. 

Checking in your DSECTS this PROCOPT is: 

A£ 

Call Analyzer is finished and depending on the function 
goes to the proper action module . (ie: Retrieve, 
Load/Isrt, Dlet/Rep>l) 


V. Analyzer calls RETRIEVE (DFSDLBOO) since our function 
was *GU*. Retrieve initializes base regs for DBPCB, 
JCB, SDB (root), LEV TAB and its VJork Areas. (K1 was set 
to the PST address by DLAO) The first check is for a 
Qualified or Unqualified call (Is there a Seg name?) , 
ours is Qualified. 

Next check is whether or not existing position can be 
used. Check the LEVFl (LEV + *1») for "LEVEMPTY" (Bit 1) 
on each level in the call. At this point in the 
processing the LEVFls were: LBV 01 = *40*; LEV 02 = 

*40*; LEV 03= *41*. Therefore the _level(s) in our 

call do NOT have existing (Previous) position. 

Since LEV 01 position was not "usable", DLR0 clears the 
top half of all level tables below the root. This means 


PAGE 3 


the ones at * 6$h~]i\ _* and * &S M & * in our current 

DBPCB . “ ' 

The organization of this DB must be established. 
SDBORGN (SDB+*9*) for the root is at * ft4 * and is 
1 Oft *. This means it is in * VU$A(v\ *. 

Follow the SDBFCSDB (SDB + MO*) pointer to the NAME SDB 
and since this is the "end" of the call, set on SDBEOC 
(Bit «0» in SDBF6 & SDB+*D»). This "Retrieve Switch" is 
going to be set again, so at the end of the call SDBF6 
for NAME at 1 * is * loo 9 . Prior to the value 

you see in the dump it was *80* for the SDBEOC flag. 


VI. Retrieve is going to the buffer handler next so it puts 
an *08* in Reg 1, an *04* in the DSGINDA (DSG+*7*) , and 
calls the I/O Interface (part of DLR00 called SETL). 

SETL uses this info to call the Buffer Handler with a 
value of *F0• in PSTPNCTN (PST+M6C*), and the address 
of the PST in Reg 1. A value of r F0* is called 
PST S’TUftfe- . This means "get the first LRECL by KEY in o\i) 

HIS Ah", in our case, the first SKILL - 


VII. Buffer Handler Router (DFSDVBHO), calls ISAM/OSAB 
Buffer Handler (DFSDBH00), and decodes the PSTSTLBG to 
mean "locate the LRECL with the lowest key in the data 
base." DBH00 calls ISAM SIMULATOR (DFSISM00) , which 
uses SETL to locate the first ISAM LRECL in either BISAM 
or QISAM. This is based on the DCBMACEF field in the 
"prime" DCB for this DSG. The SDB (for SKILL) + *24* 

points to the DSG at * _• and the DSG + *G* 

points to the AHP at * B>ft *. The AMP + *18 ■ points 

to the ISAM DCB at *_ 


If the ISAM LRECL has an overflow pointer (Pi), get this 
LRECL via OSAK. Wherever the lowest key is found (ISAM 
or OSAM), the block is read into the Buffer Pool. The 
in now are: 

(+*16D *) 

(+* 16 K * ) 

(+* 178*) 

(+* 17A *) 

( + *17C*) 

(+* 180*) 


fields filled 
PSTRTCDE 
PSTOFFST 
PSTDMBMM 
PSTDCBNM 
PSTBYTNM 
PSTDATA 


All of this is traced by DFSDVBHO into the DSECT 
*BFSPTRAC*, and control returns to Retrieve. 


VIII. Retrieve moves PSTBYTNM (+*17C*) into SDBPOSC (+*38*) 
and PSTOFFST (+»16E*) into SDBPOSN (+*3C*) for "current 
position" and turns on Bit 1 in SDBF6 (+ , D*) showing the 
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SDB "posted" for SKILL. Retrieve next sets Bit 4 on in 
all dependent SDB*s to show "not posted". The level 
table for this level (01) , is plugged into JCBLEV1C 
(-**20 •) . LEVTTR (+*4«) and LEVSEGOF ( + >8 B ) are plugged 
with the SDBPOSC and SSBPOSN data to "save" position 
info . 


The key of this segment (in this case "ANALYST "), is 
plugged into the PCB Key Feedback area (BBPCB+ 1 24 *) at 

’ __ * - 

IX. The next SSA in our call is for "any" NAME under the 
SKILL just located. This boils down to the "first" NAME 
under the established SKILL of "ANALYST The SDB for 

NAME is located by following the SDBFCSDB (SDB+MO*) in 
the SKILL segm. The NAME SDB is at *_ fcjgjhfc ». 

Back in step V. retrieve reset (cleared) the top half of 
the level tables of all dependents of SKILL. Therefore 
level 02 cannot have "position" to use. 

The subroutine that is used here is called "Forward this 
Level" and its purpose is to get a segment at this level 
by a "forward" search in the data base. 

Our SSA for level 02 (NAME segm) , is unqualified and any 
NAME segment at this level can be searched. This is 

true because the LEVF2 flag (LEV+*2*), at 1 cSA 7k * 

is •_££_*» which is called LE7 ConT _. C&cucU tm+iT d |t>~ 

Now if retrieve gets the next NAME under the SKILL of 
"ANALYST " we are in fat-city! Once this is done SDBF6 
(+*D 1 ) has SDBCHEOC set on (Bit 3) to show this segm is 
the "child" end-of-chain. This segm is in HISAM and is 
involved with logical relationships so we must check the 
Delete Flag to see if this segm is available on this 
"path". The DF is *00* so all is well. 

The one we got was "JONES, JOHN PAUL " and it*s not 
deleted so retrieve now posts its position in the SDB at 
SDBPOSC (+ B 38 *) * _* (REN) and SDBPOSN (+*3C*) 

• _(Offset) . The RRN is *_J_* and Offset is 

* 3 * In the OSAM (overflow) data set. 

SDBF3 flag (*•A *) for this LChild has SDBSENK on (Bit 
4), so this segm will not be returned to the user even 
though this is the lowest level in the call- 


Check the SDBTFLG (+*20*) for NAME segm at » 6 ^(gpo _•. 

This value ( f 01*) , means the segment we have retrieved 
points to a LParent and the LParent must be retrieved. 
Does this segm (the LChild) , have a Direct Pointer to 


X. 
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the LP? Check the DMBPTR (PSDB+*7») at * » 

which is *4U*- This means there is no LP pointer in 
the segment prefix. In fact this means the entire 

prefix is 2 bytes long so the Symbolic Pointer must be 
used . 

The SDB for our LChild segm is connected to its LParent 
via the SDBTARG (+*28*) which points to a Generated (or 

"out-of-line**) SDB at * _*. It is easy to check 

this SDB against an "in-line 1 * one since the first 8 

bytes are zeroes. Check the SDBTFLG (+*28*) for this 

SDB at 1 64 _*. (It tells 4 things about this 

SDB.) This SDB points to the DSG (SDBDSGA + *24») at 

* * and the PSDB (SDBPSDB 4* 1C*) at 

* _ - 

Checking DSGINDA ( + *7*) , for the LParent at * cSA^ _• 

we learn that this DSG is for a HIDAM data base. 

This out-of-line SDB points to another SDB via the 

SDBTARG (4*28*) and this SDB at •_ iC Q _* has an 

SBBORGN (+*9*) of * * meaning it is for the Index 

data base. 

Retrieve now has the SDB, DSG and the KEY of the "NAME" 
segm (LParent) we want, so it sets Hi = *16* and goes to 
its I/O Interface (SETL). 

The call to Buffer Handler is prepared by plugging a 
*F2* in PSTFNCTN (+*16C*) r putting the address of the 
"Key" in PSTBITNM (+*17C«) , and going after the HIDAH 

Index - 


Buffer Handler searches the ISAS index data base to 
locate our Key and returns with the RRN of the INDEX 
segment in PSTBYTNM (+ , 17C*) which retrieve plugs into 

SDBPOSC (+*38 •) at •_ Ml * . This RRN is •_and 

SDBP05N has the OFFSET from PSTOFFST which is 

* 3_*. In the prefix portion of this inde x 

segment is the RbN of the LParent segment we want. 

This RbN is next used by retrieve by moving it to 
PSTBYTNM (4»17C*) and making another call to Buffer 
Handler with a PSTFNCTN of *E2* (Byte Locate). This time 
we are going after the HIDAM DATA data base. 

To locate a segment in the HIDAM data base we must "back 
up" the SDB * s from the INDEX one to the HIDAM one by 
taking the SDBPARA (+*20) in the INDEX SDBe SDB«s. at 

* * which contains * Op *f3c _*. Both of these 

are out-of-line SDR*s. 
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XXX. Buffer Handler must do a convert of the RbN to Rel 
BLOCK Number and Offset this time, but if all is well it 
finds the segment. Bufr. Handler returns to retrieve 
with PSTDATA (+*180*) pointing to the segment in the 

buffer pool. OSAK was used to read in the block that 

contained this segment if the block was not in the 
buffer pool. ^—v. _^ 

XIII. Retrieve now has the LParent segment and/ does a post 
of the position. The SDBPOSC and SDBPOSN values at 

• frMW * and * Mi olV _* are and J 

The LParent segment just retrieved starts at t B9BC6 t . 
Check these values against the PST3YTNM and PSTDATA 
fields in the dump. 

The key of this segment is found by taking the SDBPSDB 
( + • 1C*) pointer to the PSDB at 9 1 . At *10* 

into the PSDB is the pointer to the first FDB which is 

at «__*. Check each FDB at FDBCENF (+ f A») for 

Bit 1 on. The FDB named pOLt ^ A-tvi _ is the sequence 

field for the NAME segment and it is •-Jus' bytes long 
and starts in col. •JLr- Check this length against 
SDBKEYLN (+*20») in the duiap. 


This key field must be extracted from the segment just 
retrieved and plugged into the DBPCBKFD, but where? At 
this time Retrieve is working on the "out-of*line" SDB 

for the LParent at *_ 9 . In this SDB SDBPARA 

( + •20*) at * k £ C « has • 9^ • which is the 

address of the SDB for the LChiid. (NOTE: The "in-line" 
SDB*s point to "out-of-line” SDB*s via thier SDBTARG 
field, and the first "out-of-line” SDB points "back” via 
its SDBPARA field.) The SDBPARA (+«20>) for this 

segment at *_ .A'tesjt- * has * _• which points to 

its parent. By following these two SDBPARA*s we end up 
at the root segment. Taking the SDBKEYLN (+20*) at 

y rSHffAc * for SKILL which is * J_ * we have the 

offset within DBPCBKFD for this KEY we have retrieved. 


Taking the SDBFCSDB (+»10*> in the SKILL SDB we come 

back to the SDB for NAME at _* - In this SDB 

at SDBKEYFD (+30*) at *_* is where retreive 

plugs the address of the key offset. This address is 
now used to move the Key of the segment just retrieved 
into the DBPCBKFD. 


XIV. This segment is the lowest level in the call and the 
"call sensitivity” at SDBF3 (+*A e ) is * *, so this 

segment will be returned to the user. The length of the 

pref ix in DKBPRSZ (PSDB+*8*) at *_ 9 is 9 ^\<> 9 

and the data length in DKBDL (PSDB+ , A*> at • c -* 

is * 9 . This data length is plugged into PSTSEGL 
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(♦•EG 1 ) and the prefix length is added to PSTDATA 
(+•180*) and placed in PSTSEG (+B4») all by retrieve. 

The address of the Level Table for this segia. is 

"posted” in the JCBLEV1C (+*20*) at 9 CSJ^ • and 

Retrieve returns control to Call Analyzer. 


Analyzer plugs the Key Feedback length into DBPCBLO 
(+* 1C«) and returns control to Program Bequest Handler. 

Program Request Handler moves the segment based on the 
address in PSTSEG (+*B4') to the address in PSTUSER 
(♦•BC*) using the length in PSTSEGL (+ , B8 t ) and returns 
control to the application program. 


UPDATED: 12/20/76 


INSERT CALL FLOW 


I. Our task is to ISRT a new •SKILL* segment (in Logical 

D.B. 2), which is a Logical Child *XSKILL* in the MAHB 
data base (ISRT via the Physical Path) and a Logical 
Parent * SKILL• in the SKILL data base (ISRT via the 

Logical Path) . 

The first call in the dump is a qualified *GU* to the 
NAME segment of BRUIN, FRED J. This call establishes 
"position** in the data base so that the ISRT call that 
follows places the SKILL of ARTIST under that particular 
NAME. The GU call is snapped so that we can look at 
some of the control blocks & buffers "before" the ISRT 
call. 

At this time turn forward to the ISRT call (about 10 
pages in the dump) , and you can see the exact call as 
issued by DL/I Test. 

II. Flow is the same as for a GET Call up through the Call 
Analyzer. The call is decoded to be an Insert, and the 
PROCOPT is checked to be *1* by checking the SDB for the 
segment being inserted. In this instance we must check 
the SENSITIVITY of the "SKILL" SDB. Scanning the 
interpreted side ofmthe dump on page 129 we find the 
value "SKILL". This is the the SDB which starts at 

«__*. The SDBF3 (+*A*) at * M°\(p£ _* has 

* - 7 C- *. No matter what other bits are on, if Bit 1 
(•40*) is ON this segment is OK to insert with this PCB. 
Once we have passed this test. Analyzer gives control to 
DFSDLR00 - DL/I RETRIEVE. 


off 

* * (the DBPCB address) which is 

DBPCB + *10 # to the pointer to the JCB 


III. Retrieve establishes position in the HIDAM data base 
for the ISRT of the XSKILL segment (the Locical Child) . 
•Position* in this case refers to the Hierarchical 
location within this data base record where this 
particular segment must go. In order to do this (and 
follow the Retrieve flow), locate the PST at * 
go +*160* to 
■ *, 

which is at * _* and plus 8 in the JCB to 

* Zy ^ * . This location contains * * which 

is the address of the First SDB In this PCB. The first 

8 bytes of that SDB are * _* which is the 

name of the Root segment. This segment has position 

which was established by the first *GU i call and by 
looking at SDBPOSC (+38*) at * . SC<-f _• it is 

* ». 

At SDBFCSDB (+*10*), at * _• there is 1 ^, * 

(Half-Word) which Is the "Offset" to the first Child SDB 
for this segment. At that offset is segment name: 

At SDBSISDB (+*12*) in this SDB 
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• __* is ♦ f _* . That points to the first 

Sibling SDB for this segment which is 

named:_ Uhii io^ _. The SDBSISDB in this segment at 

' « takes us to the "SKILL" SDB at 

Retrieve uses the "current" position of the "NAME” 
segment and by reading the prefix pointer in that 

segment for the Physical Child "SKILL” gets the first 

segment to check for position* The key field of this 
“SKILL" segment is read and compared to the Key of the 
segment in the user's I/O area. In our example the 
first "SKILL" in the data base record for BRUIN, FRED J. 
is "BW173" (Photomurals) - The Key fields are compared by 
retrieve and ARTIST comes before BW173 . The "position" 
(RbN) of BW173 is placed in SDBPOSN of the "SKILL" SDB 

at '__* - This RbN is ' PSc ». Since there 

was no SKILL lower than the one being inserted Retrieve 

plugs zeroes into SDBFOSP at ' frnqS _The SDBPOSC 

is not filled in at this time. (The value you see there 
is your dump was placed there latrer in this call flow.) 
Remember that this in not the actual "Physical" location 
on DASD where the new 'XSKILL' segment will be inserted. 
Once this 'position' is found control passes back to 
Call Analyzer which next passes control to Load/Insert 
(DFSDDLEO). 

IV. Our segment to be inserted (SKILL) , is a LC/LP 
concatenation. The SDBTFLG field (SDB +28) » » 

has a value of * o I ' which means that this segment 

•Points To A Logical Parent'. Therefore Load/Insert 
must check for the Lparent. In our case the LP is in 
the data base, (SKILL of "ARTIST ") . The Insert Rules 
are found by starting at the SDB and following the 

SDBPSDB (+'1C') pointers to the PSDB for each segment. 
First is XSKILL and the field (DRBISRT) at PSDB +'C' is 

• _* which is '3.3 '. To get the LParent PSDB go 

back to the SDB (LChild) and take the SDBTARG ( + *28» 

actually +'29* I) to the out-of-line SDB at ' #4 (p 3Q ' . 
The SDB points to its PSDB which is at 1 *. Now 

go plus 'C» (DRBISRT) to * » for the ISRT rules 

field which is ' ^3 *. The Insert rule of Logical means 
that if the LParent has been inserted in the data base 
previously only the LChild portion of the concatenated 
segment will be inserted. However if the LParent did 
not exist both the LChild and LParent will be inserted 
into their physical data bases. 

Next check the file organization of th,e LChild at 
SBBOKGN (+9 ' USblfr »). Ours is » \0 ' and that 

wans ... , -fepfc&r. .. . 

Is this segment an Index SOURCE segment? (Secondary 
Indexing) Check PSDB +20 (DMBFLAG) ' » which has: 
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A value of *10* means this segment is an INDEX 
SOURCE; *04* means it is INDEX TARGET. This means there 
is no call to Index Maintenance for this XSRT. 

Check this segment for Fixed or Variable Length at 

DfiBVLDFG (+18 * fiWo *) in the PSDB. Ours is: *_OD_• 

which means_ TtKeffl _- 

V.' Based on the •position* given to Loaci/Insert by Retrieve 
now locates space for the "new 1 ' segment, ”XNAME” by 
placing an *01* in PSTERCTN (+* 16C*) , (this is called 
"get space 1 *) , and also putting the RbN of the parent 
segment "NAME 1 * in PSTBYTNM (+*17C») ana calling HD Space 
Management. This RbN of the parent segment came from 
Retrieve when it established position for Load/Insert. 

This is the criteria for a "get space” as used by HD 
Space Mgmt: 

Space in the same BLOCK; In a Block on the same DASD 
TRACK; In a Block on the same CYLINDER; In a Block 
within the SCAN limits (Delta Cylinders) ; and if all 
else fails, the end of the Data Set. HD Space 
Management makes calls to the Buffer Handler to find 
the "Most Desirable Block” in the data set for this 
"new” segment. In order to follow the activity of 
HD Space Kgmt. a Trace Table is provided. In your 
PLM Vol 3 of 3 on Page 6.109 is a diagram showing 
the location of the HDTR. In the dump the PST+*168* 

is at * bip)-]Q _• and the SCD is at » _» 

and the HDTR (SCD+M60*) is •_% c3 jo r . + *16 0* is 

correct for Rel 1.1.3 even if your PLII says *164*. 
That value was correct for Rel 1.1.211 (The DSECT 
description of HDTRX is also in your PLM Vol 3 of 3 
on Page 5.150) The HDTR + *4• points to the "current” 

entry in the HD Sp ligmt trace at * 0>C 3£o ‘_* Turn 

to Page 6.110 in the PLM (3 of 3) , for a "map” of 
the asects HDTRACE & HDTRX. The "current” entry has 

a function code at *_ focbS® * of * o I 1 which is a 

"Get Space" request. At fIDTRX+*10* at • bc'& o _• 

is * * which is the RbN of the "parent” segment 

which is'the block where Load/Insert wants the "get 
space" search to start. In this case the parent is 
the NAME segment for Fred Bruin and the RbN was 
supplied to Load-Isrt by Retrieve. This RbN is 
passed to the Buffer Handler by HD Sp Mgmt in order 
to see if space is available in that block for the 
"new" segment. If there is no space the criteria 
mentioned above is used to find space in the data 
set. 

In the HDTRX at +«14* is the RbN that HD Sp Mgmt 
passed back to Load-Isrt for the XSKILL segment to 
be inserted. This is the value that Space figat 
placed in PSTBYTNM (+ r 17C*) when it went back to 
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Load-Isrt. At HDTRX+ *C * * » i s t_ &\tye8 * 

which is the address (in the buffer pool) , where 
this RbN actually exists at this time. This address 
is returned to Load-Insert by Space Mgrat. in PSTDATA 

(+*180*) . At HDTRX+• 8 * •_ B Y _* is * CO * which 

is the return code passed back to Load-Insert in 
PSTRTCDE (+ * 16D*) • 

Remember that this dump was taken after the entire 
call completed and the PST fields just mentioned 
have been changed several times!! 

VI. Space Management Returns to Load/Insert - 

A. With the following info: 

PSTBYTNM (+17C ~ RbN location of where 

to put the new segment being added. (Dual purpose 
field coming-and-going!) 

PSTDATA ( + 180 *_jfc P | *) - Address where segment 

data for the New LChild is located. 

PSTRTCDE ( + 16D * *) “ Return code (if *03* 

the bit map must be updated) . 

B. The next operation is to build the complete segment, 
both Prefix and Data portion and move it to the buffer 
pool. The Data portion of the segment comes from the 
Users I/O Area PSTUSER (+BC * frfcegf ») , which at "this” 
time is *C2F10* and not the address you see in the dump. 
That address has a pointer which has been updated to the 
Llarent which comes later in the call flow. The Prefix 
is "carved** out with a segment code taken from the PSDB 

for the SKILL segment. That PSDB is at * _* and 

the code is 1 QiP *. The delete flag is plugged with a 
0 0 byte and theiTrhe number of blank prefix-pointers is 
established by reading the DHBPTR (PSDB+*7*) at 

* __ 1 which is * * and the DHBFRSZ (PSDS + *8») 

at * tUKftd _* which is *_£_* - The DMBPRSZ. t ells the 

size of the prefix, and the DMBPTR tells what pointers 
are present. The values there mean that we have 

a) puvf fftwr pointers and the prefix is to (= 
bytes long. The values moved into these prefix pointers 
come from two locations. The Physical Twin Forward 

pointer comes from the SDBPOSH field at *_» 

which is *_» . The Physical Parent pointer comes 

from the parent and we follow the SDEPARA (+*20*) at 
» * to the "NAME** SDB and go to SDBPOSC at 

* o * and get *_ |Zc*f _.* and plug that into the 

PP pointer. This completes the building of the segment. 
Load-Insert, updates the SDB current position holder 

located at » * which has *_x ftl o *. SDBPOSP 

and SDBPOSN were filled in by Retrieve. Load-Insert now 
moves the new segment to the address in the buffer pool. 

Map out the segment here: 

l _ 0< f | °° 1 13 frc ( | ArfcT l<;Tfcl£ I 

(Sej 9F Pf W Pp ?ti\ 
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If logging is being used (in this case I used a DD DUMMY 
for the log), the NEW segment inserted in the data base 
will be logged out now. 

If the return cede from Space Management, PSTRTCDE (+16D 
* Qfovlfo *) was an '03*, a second call to DFSDHDSO 
(Space Management) is made to update the Bitmap. The 

value in the dump at HDTRX+ f 8* at • 6 c-'b _* is • OP * 

so no call to HD Space Mgmt. with a Function Code of 
*03* is made in this dump, but if an update was to be 
made this is the time! 

Since the Bitmap is itself a block in the data base, 
this change must be logged out. 

The Kier-Holder (HH) is updated next. This shows any 
subsequent user that this new segment is really there I 


VH. Our XSKILL segment is physically paired so DL/I must 
ISRT the paired segment (XNAME) over in the SKILL data 
base. We discovered this Physical Pairing when we looked 
at the PSDB+• 20 1 (DHBFLAG) for the LChild segm. 

Re-positioning ourselves at the "SKILL" SDB at 

• _* we find SDBTFLG (+28 •) is and 

SDBTAEiG is * *. The Gen*d SDB pointed to at 

this address “has at SDBORGN (+»9«) at 9 • an 

• 0^ 9 meaning it is in H . SDBTFLG (+*28 *) at 

• M Gkd * is * 34 * which means this SDB is Generated, 
and points to a LChild (ie: XSKILL) . SDB TAR G is 

• fH G * which points to another Gen*d SDB. In this 

SDB at SDBTFLG • „ M G _* is f 1O 9 which means this 

SDB for Physical Pairing- The SPBPSDB (+*1C*) at 

• (o'fe 8 has * CS7>\C 9 which is the PSDB for the 
"Paired" LChild. Mow that we have located the SDB and 
PSDB for the "Paired" LChild we can continue with the 
I SET! 

Segment XNAME, the paired segment, is a KISAH Dependent 
so a different insert path is taken: 

A. DFSDDLEO first locates the point in the HISAM LRECL 
containing the "previous" and "next" segments in 
sequence so that we may insert the new segment. Next 
it scans the LRECL to see if the new segment will fit. 
If not it must get a new LRECL to hold the new 
segment. The change to the old LRECL is to place a 
(P2) Pointer to the new LRECL and move the •old 1 segm. 
in the added LRECL after the •new* segment. If there 
is room in the existing LRECL all that is needed is to 
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*shift • the old segments and write the new one in. 
(All this is being done in the Buffer!) If there is 
no room in the *new* LRECL for the segment (s) pushed 
off another new LRECL is allocated and the 

•pushed-off* segments are moved there (from the 
original LRECL) . 

In order to accomplish all this "location", Load-Isrt 
must read the LParent segment (in ISAM), and follow 
the data-base-record loooking for: the first "XNAKE" 
(and do a Key comparison), or the end oi 

Data-Base-Re cord- The segments are identified by 
segment codes and we find the SC for XNAME by starting 
back at the Gen*d SDB for this Physical Pairing at 
» 1 . The SDBPSDB (+*1C*) at * $41 &S * has 

1 £ c rV)C' • ana that PSDB has a SC of * of *■ So, 

the "scan" will start at the root and look for a SC of 
*02*, >*02*, or end with a P4 pointer (4 bytes of 
zeroes). 

In this example there are no dependents of the SKILL 
"ARTIST" so the P4 pointer is reached first. There is 
no room in the LRECL in ISAM for any dependents so the 
"position" for our new "Paired" LChild is in a new 
LRECL in OSAM. 


B. This is a good time to map out the SKILL segment in 

the Buffer Pool, so here we go! To locate a EISAB 

root in the buffer pool we must know the DMB#, DCB#, 
and BLOCK#. The first two are found in the DSG, so 

it*s back to the SDB for the LParent at •_ 4(? 3 d- • 

again!! The SDBDSG (+•24*) at 1 _*~ has 

• _* The DSGDM3N0 (+*4* Half Word) is *_3_• 

and the DSGDCBNO (+*6* One Byte) is •__* r and while 

we*re here the DSGAHPA (+*0* Full Word) is 

• t . When a HISAH root is retrieved the 

"KEY" is given to ISAM and the BLOCK is returned to us 
in the buffer pool. I will play ISAM and tell you the 
BLOCK is #1. Also in the DSG at DSGBOFF (+*C*) 

• Ji) _ 1 f E the offset within the Block for the 

segment.. Now you have the BLOCK#, DBM# and DCB# and 
we are ready to jump into the Buffer Pool. (Ouch!) 




C. Locate the SCD at •_k g V S o_« and look at SCDDBFPL 

(+*2BC*) at •__• which is 1 &Lc?oo * and go 

to that address. Now we are at the *BFPL* , or the 
Buffer Pool Prefix as is says in the DSECTs. 

Searching the pool for a segment is done via the "Best 
recently used buffer" at BFPLFRDT (+*8*) at 

1 bTUoos _« which is * o X * . Now look at the 

dsect "BFFBDS" for an individual buffer and compare: 

The BLOCK at + *C ‘ * > * with what we are ^ 

looking for (*0000000 1*); The DNB at +*10* 

*__* with our DMB#; The DCB at +*12* with our 
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DCB. This is NOT the buffer we want, so take the 

BFFRFWD (+ * 18 *) at «_* which is * £$T)c8 _* 

and get the next buffer. Do the same comparison again 
for BLOCK# (+'C‘) at * OP 4 *, DEB# (+*10‘) at 

* _*, and DCB# (+*12*) at * e f PDA *. This 

time we have an equal compare on all items and-jfhis is 
the buffer we want. According to the < sect g?—the 

Buffer Prefix is * Zo _• bytes long, so if we add the 

offset (from the DSG) to the start of data we arrive 

at the ISAM LEECL at * _*. The first thing 

here is a P1 Pointer of *000000* showing there are no 
roots chained off this one. Next at * Erff * is 
the SC of *01*, delete flag of *00*, a pointer of some 

kind at *_ CfcG _* with a value of *00000 001* and 

the start of data at » € £ £ k A *. To determine what 

kind of pointer that is we must go back to the PSDB 

for the SKILL segment at » _*. DMBPTR ( + *7*) 

at * _* has *JLL* which means this segment 

has a Counter. That counter in the prefix has a value 

of * ) _* meaning it has that many Logical Children 

without direct pointers to them. Before leaving the 

PSDB go to DM DDL ( + *A*) at * d SftO V. « which is 

9 and get the data length. 


Vx* f 
^6# -I 

e!?, 


D. Now go to the buffer pool and add the data length 
to the start of the data and there should be the 
segment code of the next sequential segm. in this 
data base record. This is at * * and it is one 
byte of * <oo *. A zero segment code means this is the 
start of a P2 pointer and the next three bytes contain 
the RRN of the LEECL in OSAM where the next segment is 
located. (If these three bytes were zeroes this would 
be a P4 pointer and the data base record is ended. In 
this example there WAS a P4 pointer there before the 
ISF.1 call, but now there is a three-byte P2 with 
* 33 * meaning the next sequential segment in this 
data-base-re cord is in OSAM at the * 3~3 *-rd LRECL 
from the start of the data set. 


This segment is the "Paired** one Load-Insert had to 
put in the data base since the User put in the XSKILL. 
Let*s go back to the Gen*d SDB for this "paired” 
segment at * * and pick up the SDBPSDB 

(+*1C*) at *_ftK frgfr _* and the SDBDSGA (+*24«) at 

* *. The DSG is the same one as for the Root 

(SKILL) but the DCB will be for "overflow" instead of 
"prime". The PSDB at * £STt>tc _* is level *0 2* 

and has a prefix size DHBPBSZ (+*8*) of * ^ _* and a 

data length DMBDL (+*A*) of * lA *. The DSG at 

1 9 has the DMB# at +*4* which is * 3 • and 

the DCB since this is OSAH is *02* this time. We know 

the HRN is *33* but in order to know which Block it*s 

in we go to the AMP via the DSGAHPA (+0) at 

• £5(WVU- *. DMBPFO DR ( + *1C*) at • C?C 4C * points 


>10 ^ $ 
*>Uc 


- <QO 
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to the OS AM DCB at « _• . The OS AH Block Size 

is at +*18* in the DCB at * * w 

*_ S> _* and the LBECL size is + f 52* at • _ C 

-which is j_*- 

E. Doing some fancy math we find the HEN we want is in 
the second Block for the DHB and DCB numbers already 
established- Going back to the Buffer Pool, follow the 
"use chain” looking for our Block, DMB & DCB match. 

We left off at the buffer at. * * so take the 

BFFRFWD (+*18*) at •_ $ » and check the next 

buffer at » ^0 70 ». It*S Block (+*C*V * _21_* 

' DMB (+ * 10 *) *_ 2l _ f and DCB (+"12") •_ V _ * . Right ^ 

you are, and now add the prefx size to the start of 
** 0 \ the buffer- That is the start of Data in this Block. 

V/fhe “XNAME” we are looking for is in the LRECL at 
where there is a P3 pointer with all zeroes- 
Three bytes into the LRECL is the segment code of 
• delete byte next is , and if you wrote 

it down the prefix length (in the PSDB), was *02* so 
that"s all! The data is next for *2 A* bytes and the 
next byte is supposed to be a segment code- The SC 
there at "1*6788 • is " 0° * meaning this is a Pointer. 

The next three bytes are all zeroes so this is a P4 
pointer and the end of the data base record has been 
reached. 

F. This is the segment inserted by DL/I when the user 
inserted the other "half” of the physical pair- All 
changes must be logged and this is done now. 

The SDB Position Holders and the HH"s are updated to 
show any changes. 


hich is 


Is this Segment a Secondary Index SOURCE segment? If 
so call Index Maintenance (DFSDXHTO) now to keep the 
secondary index in synch- 

VIII. The Logical Parent segment (SKILL) will have to be 
updated since we added a new XSKILL segment which is 
its Logical Child. If this SKILL has a counter we 
must add one to it and if it has a LCF pointer we must 
fill it in with the RbN of this "new* XSKILL, but only 
if the new segment is the FIRST logical child. If the 
SKILL segment has a LCL pointer and the new XSKILL is 
last on the Logical Twin Chain (Virtural Pairing) , we 
must fill in the LCL pointer with the RbH of the new 
segment. 

Go back to the Buffer Pool and see where the Counter 
for the SKILL segment of ”ARTIST” has a value of 

* _t_» . This is the first and only XSKILL 

^ pointing to this LParent and since it was just 
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inserted that value was plugged in by Load-Insert at 
this time in the call flow. 


IX. The Physical Parent Segment ‘NAME* needs updating. 
Since its Lchild »XNAME* is in HISAM all we can do is 
add 1 to its Counter. (Ho LC Pointer Possible into 
HIS AH) In the Buffer Pool the HAKE of "BRUIN, FRED 

J." Is at * * and the counter is at 

* £ ». The counter value is *_ 3 _ 1 in 

the dump which means is was *_ 23 _* before this 

ISRT call. 

Log any of the segments changed as a result of this 
prefix updating and we can go back to the Call 
Analyzer (DFSDLAOO) . 


X. Lets look in the buffer pool and map out some of the 
segments involved in this little ISRT. In case you 

forgot, the DL/I Buffer Pool starts at * ZiqooQ _*. 

The * NAME # segment is located in the pool at 
» Lffd ftg ' . The * SKILL* segment is at » ». 

The *XSKILL * segment is at * E/H -eg_•. The *XNAME * 

segment is at * S ^_* - 

Map out NAME for FRED BRUIN here: 


| OQ Oocoogc^ 

DP Cr^ 

(Lc Ui&d) 


(OfcC 

?TP 


\ v33>^ 1 V3So^ ( 2AVC | I- 

?CF P CF ?CF 

?AY(^ tL 


Map out SKILL for ARTIST here: 


|c?{ ^ qo \ oocow *>i ^|\ ft-$bnr tST £ & ^TA-PF <S~T - - - ■ 
<$ c ^ 


Map out the XSKILL for ARTI ST here: 


*i l 0g 1 (3 u \ 

So yp ' 


i-c4 


f? 


i 


ARTIST 


/jp ^ 


DftT-A 



Map out the XUAHI. for FRED BRUItt here 





Ftt)> T, 


£c Df 




Updated: 02/07/77 




DELETE CALL FLOW 


This call exercise consists of two steps. The first is a 
diet of a root segment in the HISAM "Skill-Name” data base. 
In your handouts this is known as Logical Data Base 1. Step 
two is a diet of a LC/LP concatenated segment "SKILL" via 
Logical Data Base 2. That is in terms of Physical data 
bases, a diet of the segment "XSKILL" in the HIDAK data 
base. Snaps were taken after each call, so there is a 
formatted dump of the DL/I control blocks & Buffers after 
the GBU calls and a full region dump after each DLET call. 


STEP ONE 


I. Step one is to Delete the 'SKILL* segment with a key 
value of PROG via the Logical Data Base 'SKILL—NAME*. 
This is a Delete via the physical path. The Delete RULE 
for this segment is Logical and SKILL is both a Physical 
and a Logical Parent, with its Lchild Physically Paired. 

These facts (given to us by our friendly D.B.A.), mean 
that: 

1. Either Physical Or Logical Deletion can occur 
first on the LP. 

2. All Logical Children must be marked as Logically- 
deleted . 

3. All Physical Children must be marked as Physically 
deleted. 

At the completion of the Delete call: 

1. SKILL, XNAHE, EXPR and EDUC will not be accessable 
on the Physical path. 

2. XSKILL will not be accessable on the Logical Path. 


II. The actual CALL flow starts with the mandatory 'HOLD* 
call. In this case it is a GHU to SKILL qualified on 
SKCLASS of PROG. At the completion of this call the 
Level Table for SKILL (Level 1) , has bit two on in the 
field LEYF1 (LEV +1) * * indicating that this 

segment was returned to the user with a HOLD 

call:* *. If this was not done we would get a *DJ* 

status code on the DLET call. 


Turn forward in the dump to the DLET call. First of 
all Dlete/Replaee (DPSDLDGO) , checks the key field in 
the users I/O area against the key stored away in the 
PCB. If these don't equal the call is not completed and 
a status code of *DA* is issued. 

To accomplish this* we must locate the PST at DFSBNOCO 
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+ • 8 * on page 120 in the dump at _ * . The 

PSTDB1CB (+* 160*) at *_frt? ((,£_* has * ( Tf-yAf _ # * How 

go plus *24* to the DBPCBKFD field at * cyydff * which 

has in it: _ f _. This is the hey value 

as DL/I sees it from the GHU call. The field FSTUSE&. ^—.. 
( + • BC •) points to the Osers I/O area at * ($bO& l F)-= ^ ^ndvp^rro) 
it contains the KEY in the first 8 bytes which is 

__• The two are egual so we don't 

get a *DA* status code. 


IV. The next guextion that Diet/Replace must /answer is do 
we have Logical Relationships, Secondary Indexing, or is 
this data base IID? To answer these questions we must 
start back at the “SKILL 1 * SDB. To get there we take the 

“current” DBPC8 +*10* at * ftif -_* to the JCB at 

» * . In the JCB at JCBSDB1 (+ * 8 *) at 

* Cc&'ZO * is the pointer to the root SDB- This is 
the “SKILL** SDB we want, so look, there at SDBDDIR 

( + •14*) at * » which is * *. This 

address is the DDIR entry for this SDB. Each DHB 
Directory entry (DBIR) is *28* bytes long and the first: 
DDIR is pointed to by the SCDDLIH (+*F4*) at *$9274* 
which has *^4A4C* in the dump on page 123. The DDIR 
pointed to by the “SKILL” SDB is the 2nd entry, right? 
Looking at the DSECT for the DDIB's you see that the 
DBDHAME is at + * 8 * and the pointer to the DiiB (D DIR AD DR) 
is at +*10*. In the DDIR we just found at +*10* is 

* jHl-AS 1 or the DHB associated with “SKILL”. Check 
the DHB for Logicals and/or Secondary Indexing and/or HD 
organization: 

DHBORG <+A) at * ^^2^1 _* checks for HD. It is 

^ * °\ 1 DHBPLAG (PSDB +20) at * _* for 

* S' Logicals S S.I.Xt is . Anything BUT *00* 

in the DHBFLAG gives us a “YES” answer to the 
question. 


The answer to HD and 
Logicals is YES. 


S.I. is no, but the answer to 


V. Based on that YES answer, DFSDLBS0 builds a Dlete Work 
Area and enques the Root. The address of the work area 
is in the PST at offset *1FC* . DLDS0 locates the first 
segment for XRAISE EXPR £ EDUC under this SKILL and saves 
the Key of each segment. Unfortunately this field in 
the PST (PSTDLT'WA) is reset before the end of the call 
so in the demp the field is all zeroes! 


VI. DFSDLD00 does a 'down* scan next. Since this is a DLET 
of an entire data base record in HIS AH, this scan is 
done because of the Logical relationships involved. 
During this ‘scan* DLB00 uses the work area to build 
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information needed to do any actual deleting in the next 
step. 


VIT. How map out the B.B. Record for this deletion as this 
‘scan* would do. For a start, the SKILL segm. is in 
Block 1, DHB #2, DCB #1 in the buffer pool. That info 
came from the DSG for the SKILL data base. Also in the 
DSG at offset *0 f is a pointer to the AMP. The DSG 
starts at * 4“ * - This AMP in turn contains 

pointers to both DCB*s for the ISAM/OSAM pair in use. 

The AMP is at * bHt&v _*. Since you know what SKILL 

segm. we are deleting you can scan the dump to find it. 
The "BFPL" starts on Pg134 (That*s not really cheating 
1*1 say.) The root segm starts at • E 'y * with a 

segment code of *01*, a delete byte of * 2 .q- * and a 

counter of *_3_•. Following this is the segment 

data. The length of data is found in the PSDB, offset 
•A* (DHBDL) , which is at * * and is * * . 

Xf data starts at » trg * (followincy the counter) , 
adding the length should put us at the next segment in 
sequence. However the segment code at this address is 
•00* which is the *i lag-byte* portion of a HISAM P2 
pointer. The next three bytes of the P2 pointer contain 
the RRH in the OSAM (Overflow) data set where our data 
base record is continued. 

If our ISAM (Prime) data set was DHB #2, DCB #1 and we 
are in the OSAK portion now, it will be DHB #2 and DCB 
#2. The RRN value in the P2 pointer was *00212*. This 
means our next segment is in Block 2, DHB #2, DCB #2 at 
the start of the 13th LRECL right after the P3 pointer. 
(The P3 should have the high-order bit on to signify 
•dependents only* in this LRECL.) 

That*s great but how long are the LRECLs? Go back to 
the A HP and look in offset *1C* for the pointer to the 

Overflow DCB. This OSAM DCB starts at * y _*. At 

•18* into the DCB is the BLOCK size and at *52 • is the 
LRECL size. The LRECL size is * *. 

The Buffer Pool starts at *f£6800* on page 134 in the 
dump, and the first buffer on the ••forward** use chain is 

at +•8* at *__* and is *_* . This “most 

recently used” buffer is on page 136 and is for Block 1, 
DMB 2, DCB 1. The next buffer on the "forward 1 * chain is 

at * hfk>$ic *. It is for Block * V' * ,DMB *__* 

and DCB * *, and since it is not a *new* buffer and 

has no channel program, the data starts +*20* at 

•_ ^ (gffCjo *. This is the correct one and I will help 

you locate the 13th (decimal) LRECL at *p6D7C*. Look 

there and see if this is a P3 pointer with the 

high-order bit on. Right after the P3 is the segment 
code for our next segment in the B.B. Record. It should 



PAGE 4 


be an XRAiffi for ADAMS, JOHN QUINCY (just to check your 
work up to this point!,). The segment code is 02 and 
the delete byte is 'Jk^-' • That is the complete prefix 
of XNAHE so the data is next. 

The length of data for XNAKE (called NAME in this 
logical data base) . is in the PSDB for level 2 under 

SKILL. This PSDB starts at a * a ' re 

into this PSDB is the length of —£&— • While »e ar - 
here, write down the lengths of the other segments. 

expr •_i4 *; educ 

Back to the buffer pool to add the length of data to 
XNAME and we find a segment code of • fi2_ f or A f5® the 
segm. (Which is EXPR. with a value of CB3.) ^Iter h 
S C is the D.F. * Itf * and the data. At the end of the 
data this time we hS7e a '00* S.C. which indicates this 
is a P2 pointer to the next LRECL. This Pa pointer a 

• giTdl • contains ■ >Fl_ *« ana since we got to^ this 

LRECL via a P2 with a value one less than this, the P2 
here is pointing to the next LRECL m this buffer. This 
11 next** LRECL is at tgj6DE5*. 

At the start of the next LRECL is another P3 pointer and 
then a S.C of « » for the next XNAME segment. The 

name this time is:_ 

This process continues on with pointers to LRECL^ 

the end of the D.B. Record is reached and a P4 pointer 

is found at *$£6F70*. The segments are as follows: 

XNAME - *ADAMS * 

EXPR - * CB3* 

XNAME - «JONES* 

EXPR - *AL5* 

EXPR - , CB4« 

EDOC - 1 MICHIGAN ..MBA* 

XNAME - * SMITE* 

EXPR ~ * PL3* 

EDUC - *HOLY CROSS . . ..-BBA* 

This is a good time to look at the delete-bytes of all 
the segments in this D.B. Record ana see that they are 
all • U *, including the root. The value you see in 
the toF~is after the entire DLET operation was 
completed. (On the *down* scan made by Dlet/Repl they 

were all *00*.) 


U That completes the 'down* scan as DLD00 did it- Hoxt 
DLDD0 does the 'up' ^an andsets bits '.^rk, each 

delete bytes of each segment- That preces^. 

Physical Child (as well as the Root), as 
Deleted, and these changes are logged 
explains the values you see in the dump! 


marks each 
Physically 
out. That 
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We return to DLDDO since 
with XSKILL. The "rule” is 
must LD its pair, XSKILL. 
path from NAME. 


IX. In order to locate the correct XSKILL segm. our path is 
to take the symbolic pointer in the first XNAME under 
this SKILL and retrieve NAME. In the buffer you can see 
that this is *ADAKS, JOHN QUINCI *, and this NAHE^ 
segment is in Bloch 2, DMB 3, DCB 1 at * 

This is on page 137 in the dump. We now nedd to ship 
over the SC and DF and get to the Physical Child Pointer 
for XSKILL. That is the 5th word past the Delete Flag 

and is at * pV _• with an RhN of * *. (This is 

HID AM so the DMB 8 DCB are the same.) The BbN 

conversion gives us Bloch Offset # 1 &&L Locate Bloch 

5-r Hfrft b— 37 —BC Il 1 (png^ , 1 3d —i .n —t h e dum - p f-r—and—go—tMA- 1 — 
irfete—that_buffer -(sfaxting—past—the header) , to 

* e&ic 9 for the XSKILL segm. The SC is » <M* 9 , 

the PTF ptr. is *_ 0 _*, the EP ptr. is 

* 1)3 * and the data is * PROG * • 

DLDDO turns on bits 2 and 6 in the DF to show 
•precessing by Diet.* and Logical Deletion. This change 
is logged out and we continue. Refer to the value of 
•22* at *fc9Efrip. 


XNAME is physically paired 
that when we PD the XNAME we 
This •blcchs^^the logical 


The next step in the delete process is to Chech for 
additional XNAME segments in the •deleted* D.B. Record. 
Besides ADAMS we found JONES and SMITH in the *down* 
scan. The process is essentially the same for these two 
as it was for ADAMS. When the L.D. bit is turned on in 
the Delete Flag for XSKILL pointing to SKILL of PROG 
under NAME of SMITH this step of the process is 
complete. 


X. This change is legged and no more segments are to be 

deleted. DLDOO now returns control to Call Analyzer and 
this call is done. 


STEP TWO 

Step two is to delete the same *SKILL* segment via the 
Logical Data Base * NAME-SKILL *. SKILL is a 
concatination of the LC *XSKILL* and the LP *SKILL*. 
This deletion is made via the Logical Path and results 
in deleting the LC *XSKILL* under * NAM E* of ADAMS. The 


I. 
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delete rules are Logical for both the LC and LP. 

In step one this XSKXLL segment was marked as Logically 
Deleted (LD bit on). It is physically paired with XNAHE 
and has no physical children. At the completion of this 
DLET call: 

XSKXLL will not be accessable on the Physical 
Path. 


II. Again the mandatory HOLD call is issued, this time 
against the •NAME-SKILL* logical data base. The level 
table entry to check is Level 2 this time and LEVFI at 

•_* has *_* . All is well! Check page 4 in 

this, the 3rd dump in this call flow example!) 


IH. Page forward to the DLET call where DLDOG checks the 

DBPCbKFD (+24) *_• which has 

*_* against the User's I/O Area 

(pointed to by PSTUSER, PST+BC). The User's I/O area 

(in DFSDDLTO) , starts at *_* . Where in the 

DBPCBKFD is the "key** of the segment to check this time? 

Go back to the SDB for "SKILL" at *84964* and look at 

SDBKEYFD (+*30*) at *_*. The address there is 

the position within the key feedback for Dlet/Repl to 
compare. The length of the comparison is in the SDB at 

SDBKBYLN (+*20* One Byte) at *84984* and is *_*. If 

we compare these two values we find that we didn*t 

change any KEYS so all Is well this time. 


IV. Logical relationships, secondary indexing or HD is the 
question again. This time the DMB fields at DMBOEG (+A) 

•_* has *_* and DMBFLAG (PSDB +20 for 

XSKILL) at *_» has *_». The answer is YES 

to both Logicals and HD this time, so DLD00 needs a work 
area. 


V. The scan 'down* is rather short this time because there 
are only two segments Involved: NAME and XSKILL. NAME 
is in Block 2, DMB 2, DCB 1, at Offset *8*: 

* _ *. Map out the segment using the prefix 

length from the PSDB +8 *_* which is *_* 

and the Prefix pointer options at PSDB +7 which is 

* _*. That means there is a SC, DF, CTR, PTF, PC 

(Address) , PC (Payroll) , and a PC (XSKILL) . 

NOTE : 

(In order to see the segments just as the "down" 
scan sees them we must turn back to the dump taken 

after the GIHJ call. That Is the GHU call made with 

the PCB for Logical Data Base 2 with segments NAME 
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and SKILL with values of “ADAMS'* and "PROG " - In 
that snap-dump on page 9 in the buffer pool we can 
find the “old** segment values just as Dlet/Repl saw 
them.) 


The Counter value is *00000 001 * and the PC Ptr to XSKILL 
is *0L86*. Invoking the RbN conversion routine gives 
us: XSKILL at Block 2, DMB 2, DCB 1, offset *1CE* into 
the buffer. The buffer starts at *B7BB0* so at +*20* 
from there at *B7BD0* is the start of "data**. We must 
add our offset, which was •ICE* to the start of “data" 

which puts us at *_* in the “old** dump on page 

9. The SC is *04*, DF is *22* (LD bit on), FT Ptr is 
*00000000* and the PP Ptr is *00000CC0*. With no 
Physical Children nor Twins the *down* scan is complete. 


VI. PLDD0 does another *up* scan and since this is HIDAM 
the action is a little more involved. By setting Bit 5 
on in the DF of XSKILL this segm. now becomes both 
Logically and Physically deleted and the space can be 
freed-up . 


VII. DLDA0 calls DHDS0 (HD Space Management), to free up the 
space, re-adjust the FSE*s and if necessary, update the 
Bit Map. In order to see the results of this action 
better X suggest that you compare the f XSKILL* segment 
in the SNAP (after the GHU call), with the same segment 
in the SNAP after the delete is completed. In the first 

dump the segm. is at * iff Irk _* and the first FSE 

(FSEAP) for this block points to an FSE at offset 
. Turn forward to the *after* situation and the 
same FSE (FSEAP) points to By adding this 

offset to the FSEAP you get * c %$Tr(=> _• which is the 

Seg Code location of our deleted segment. However, this 
location is now the start of a M freed-up** area and 
contains a new FSE. Check this out by comparing the 
pointer to the next FSE and the length of free space. 
The offset to the next FSE is * tifa 0 * (what the old 
value was in the FSEAP) , and the length is * \y * (the 

free space including the FSE itself). FSE offset 

pointers are always relative to the first FSE, known as 
the FSEAP which is the start of the Block. 


IX. If this free-space was large enough to change the 
“status** of the block from “not enough space for the 
largest segment in the Data Set Group'*, to “enough space 
the Bit Map would be updated and the bit 
corresponding to this block would be turned on. This 
time the space if; too small to sake a difference so no 
call is made. 
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X- Delete is almost finished, but the "down” scan showed 
that XSKILL is physically paired with XNAME and whenever 
we physicall y delete one member of a pair we must 
l ogicall y delete the other. That means ve must locate 
the XNAME pointing to "ADAMS, JOHN QUINCY" and 

Logically delete it. Just to show you my heart is in 
the right place 1*11 tell you where the start of this 

segment is in the buffer pool! (Nice??) It is at Jicfc ft 

•^657F*. The very next byte is the segment—cede and 
sure enough the Logical delete bit is on AND the HISAM 
Segment delete bit is also on! In fact the value there 
is and this segment will be physically removed 

from the data base at reorganization time. 


XI. If you remember there was more than just this one XNAME 
under the SKILL of "PROG". In fact the names were JONES 
S SMITH, and these segments have NOT been deleted in the 
other data base. This points out the situation 
Diet/Replace must check for before marking the SKILL 
segment as deleted (Bit 1 on in the D.F.) • Diet /Re place 
checks for more XNAME segments under the SKILL of "PROG" 
and finds two. The D.F. for each, of these has a value 
of *24* which means they have only been marked as "not 
available" on the Physical Path. Therefore no action is 
taken on the D.F. for SKILL of "PROG". 

That does NOT mean there is nothing to do on the SKILL 
segment because we have physically deleted one of its 
Logical Children. That means we must decrement the 
Counter by 1, and the segment is in the buffer pool at 

1^1 The counter at * _* is *_ V 1 now 

that the DLET is finished. 

This same operation must be done for the Root segment ££-730 
NAME for "ADAMS, JOHN QUINCY" which starts at »B-TBfrS ' 1 in 
the buffer pool. The counter value at * * is 

* O * which means that there are no more Logical 
Children in the data base for this NAME segment. 


XII. After the changes have been logged out delete has 
"done its thing" and control returns to DLAO 0. Call 
Analyzer again returns control to Program Request 
Handler whic returns control to the application program. 
In this case the Return Code was 'bb* and the DLET went 
OK! 
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